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Amplie a capacidade musical de seu 
micro reduzindo os dados necessários 
à execução de uma melodia. 

As técnicas apresentadas aplicam-se à 
compressão de diferentes tipos de dados. 


Tocar música utilizando o computa- 
dor é uma experiência fascinante, prin- 
cipalmente quando se é o autor da pe- 
ça. Existem, porém, várias dificuldades 
a superar, e uma delas é a quantidade 
de dados que um programa requer para 
executar determinada melodia — mais 
de uma tela cheia de números, na maio- 
ria dos casos. Além de serem difíceis de 
digitar, esses dados ocupam muito es- 
paço na memória. Neste artigo, você ve- 
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rá como comprimir os dados de suas 
melodias dentro dos programas BASIC, 
de maneira que eles tomem o menor es- 
paço possível, liberando parte da memó- 
ria RAM para outro uso. 

A aplicação das técnicas de compres- 
são de dados não se restringe, natural- 
mente, aos programas destinados à exe- 
cução de música. Estende-se a dados de 
todo tipo, desde que sejam repetitivos 
e limitados a certos valores. 


UMA NOVA MELODIA 





Seja qual for seu estilo, as melodias 
que o computador toca seguem um cer- 
to padrão que permite sua compressão. 
Tomemos como exemplo uma música 
simples, com um total de doze compas- 


HE COMO COMPRIMIR OS DADOS 


Eq ECONOMIA DE NOTAS 


E MODIFICAÇÃO DO ANDAMENTO 


sos. Para executá-la, precisaremos escre- 
ver um programa em BASIC contendo 
um determinado número de linhas DA- 
TA, como o apresentado a seguir: 


10 LET T=.2 
20 RESTORE 
30 READ D 
50 IF D=255 THEN GOTO 20 

60 SOUND T,D 

720 GOTO 30 
100 DATA 12,12,15,16,19,19,21, 


100 


110 DATA 12,24,22,21,19,17,16, 
120 DATA 12,12,15,16,19,19,21, 
DATA 12,24,22,21,19,17,16, 


140 DATA 17,17,20,21,24,24,26, 








WIDERE 
REIS Pd 


24 
150 
14 
160 
19 
170 
14 
180 
23 
190 
21 
200 
L9 
210 
Lá 
220 DATA 255 


DATA 17,24,22,21,19,17,16, 


DATA 12,12,15,16,19,19,21, 


DATA 12,24,22,21,19,17,16, 


DATA 19,19,23,24,26,26,24, 


DATA 17,17,20,21,24,24,20, 


DATA 12,12,15,16,19,19,21, 


DATA 12,24,22,21,19,17,16, 


10 SOUND 7,56:SOUND 8,15 

20 SOUND 1,0:RESTORE 

30 READ D 

50 IF D=255 THEN 20 

60 SOUND 0,D 

70 FOR T=0 TO 100:NEXT:GOTO 30 
100 DATA 213,213,179,169,142,14 
2,126, 142 

110 DATA 213,106,119,126,142,15 
9,169,189 

120 DATA 213,213,179,169,142,14 
2,126, 142 

130 DATA 213,106,119,126,142,15 
9,169,189 

140 DATA 159,159,134,126,106,10 
6,94,106 

150 DATA 159,106,119,126,142,15 





9,169,189 

160 DATA 213,213,179,169,142,14 
2,126,142 

170 DATA 213,106,119,126,142,15 
9,169,189 

180 DATA 142,142,112,106,94,94, 
106,112 

190 DATA 159,159,134,126,106,10 
6,134,126 

200 DATA 213,213,179,169,142,14 
2,126,142 

210 DATA 213. 106,119, 126, 142,15 
9,169,189 

220 DATA 255º 


10 RESTORE :T = 80 


20 FOR I = O TO 22: READ A: PO 
KE 800 + I,A: NEXT 
30 DATA 160,0,174,133,3,238,4 


8,192,136,208,5,206,132,3,240,6 
,202,208,245,76,34,3,96 

40 READ D 

50 IF D = 255 THEN 10 

60 POKE 900,T: POKE 901,D: CAL 


L 800 

720 GOTO 40 

100 DATA 47,47,40,37,31,31,28 
531 

110 DATA 47,23,26,28,31,35,37 
(42 

120 DATA 47,47,40,37,31,31,28 
Sl 

130 DATA 47,23,26,28,31,35,37 
(42 
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140 DATA 35,35,29,28,23,23,21 
23 

150 DATA 35,23,26,28,31,35,37 
42 

160 DATA 47,47,40,37,31,31,2 
8,31 

170 DATA 47,23,26,28,31,35,3 
7,42 

180 DATA 31,31,25,23,21,21,23 
25 

190 DATA 35,35,29,28,23,23,29 
(28 

200 DATA 47,47,40,37,31,31,2 
B,31 

210 DATA 47,23,26,28,31,35,3 
7,42 

220 DATA 255 

10 T=3 

20 RESTORE 

30 READ D 


50 IF D=255 THEN 20 

60 SOUND D,T 

70 GOTO 30 

100 DATA 175,175,189,193,204,20 
4,210,204 

110 DATA 175,218,213,210,204,19 
7? ,193,185 

120 DATA 175,175,189,193,204,20 
4,210,204 

130 DATA 175,218,213,210,204,19 
7 ,193,185 

140 DATA 197,197,207,210,218,21 
8,223,218 











150 DATA 197,218,213,210,204,19 
7. 193,185 

160 DATA 175,175,189,193,204,20 
4,210,204 

170 DATA 175,218,213,210,204,19 
7,193,185 

180 DATA 204,204,216,218,223,22 
3,218,216 

190 DATA 197,197,207,210,218,21 
B,20/7,210 

00 DATA 175,175,189,193,204,20 
4,210,204 

210 DATA 175,218,213,210,204,19 
7 ,193,185 

220 DATA 255 


Se quiserem, os usuários do TK-2000 
poderão modificar este e os próximos 
programas a fim de usar o comando 
SOUND. Mas isto não é necessário: tal 
como estão, os programas funcionam 
tão bem em seu micro quanto no Apple. 

Em geral, o MSX requer o dobro dos 
dados utilizados pelos outros micros, já 
que emprega dois bytes para definir a 
nota musical — o byte mais significati- 
vo € o menos significativo. A melodia 
que escolhemos, no entanto, é tão sim- 
ples que o byte mais significativo de to- 
das as suas notas é igual a O, o que nos 
permite especificar só os bytes menos 
significativos. 

A variável T estabelece um fator de 
tempo para a velocidade da música. A 


linha 20 acerta o apontador das notas 
no início dos dados. O laço FOR ... 
NEXT entre as linhas 30 e 70 lê os valo- 
res das notas — os números nas linhas 
DATA —, colocando-os dentro do co- 
mando musical apropriado na linha 60. 
A linha 50 detecta o fim da melodia, 
marcado por um valor arbitrário — 255. 

Se quisermos introduzir pausas no 
meio da melodia, podemos definir um 
outro valor arbitrário, 254 por exemplo, 
e incluir um teste para esse valor na li- 
nha 40. Ao surgir uma pausa no meio 
dos dados, a linha 40 desviaria o pro- 
grama para uma outra linha. Esta pro- 
duziria um certo atraso, voltando depois 
para a linha 30 a fim de continuar a exe- 
cução da música. 

Tal como o programa está, as notas 
são fornecidas aos comandos musicais 
do BASIC e emitidas conforme vão sen- 
do lidas nas linhas DATA. 

Embora esse processo funcione a 
contento, ele exige um número muito 
grande de dados, mesmo para uma me- 
lodia curta. Além de dificultar a digita- 
ção e tomar espaço na memória, O ex- 
cesso de dados traz ainda um outro in- 
conveniente: enquanto a música está 
sendo lida e processada, o computador 
não pode se ocupar com outra tarefa. 

Alguns micros, como o MSX, solu- 
cionam parcialmente esse problema com 


um buffer musical, capaz de guardar al- 
gumas notas. Se houver espaço no buf- 
fer para o som que está sendo emitido, 
o computador é liberado para outras ati- 
vidades. Porém, havendo mais notas a 
processar, O micro fica novamente com- 
prometido, Seja como for, o buffer não 
alivia o trabalho de digitação das linhas 
DATA nem reduz o espaço por elas ocu- 
pado na memória. 

Para contornar efetivamente esses 
problemas, o usuário só tem uma alter- 
nativa: encontrar um meio de compri- 
mir os dados, tornando mais fácil seu 
processamento e economizando espaço. 





MÃOS À OBRA 


A compressão de dados é viabiliza- 
da pela existência, em uma melodia, de 
padrões que se repetem. Quanto mais 
padrões pudermos reconhecer, maior se- 
rá O grau de compressão. 

Para identificar esses padrões de da- 
dos, convém, em primeiro lugar, ouvir 
ou tocar a melodia em um instrumen- 
to, tentando distinguir as passagens que 
se repetem. Depois, escreva a música em 
um papel, preocupando-se apenas com 
a frequência das notas — Ignore pautas, 
claves, compassos etc. 

Não há dificuldade em escrever, em 











sequência, as letras equivalentes às no- 
tas, se estas têm sempre a mesma dura- 
ção. Mas, e se as notas tiverem duração 
variada? Nesse caso, o trabalho torna- 
se um pouco mais complicado, pois pre- 
cisaremos levar em conta, além da to- 
nalidade, o tempo de cada uma — o que 
duplicará o volume de dados. 

Outra saída consiste em repetir as no- 
tas de maior duração. Se, por exemplo, 
uma nota dura duas batidas, ela será re- 
gistrada duas vezes. Esta foi a alterna- 
tiva que utilizamos ao transcrever a me- 
lodia do programa anterior. Obtivemos 
a seguinte tabela: 


TABELA 1 
GAS DODO E DOS 
GPB DUB A 
6 GAp B DD E DG 
GE FW E DE BA 
C CD+ E GG AM te 
E rE DA BA 
G GAs B DD E D GQ 
PE DC RA 
D DF4 GAZA G F* 
C CDs E GQ GD+*4 E 
E CAs-B-D DB Do 6 
Q FE DLL B A 


Se você examinar a tabela 1 com 
atenção, verá que a melodia se compõe 
de apenas cinco sequências, ou minime- 
lodias — identificadas como TI, T2, 
etc., como mostra a tabela 2 —, em sua 
maioria tocadas repetidas vezes. 


TABELA 2 
tsG 6 Ar BD D E DGE 
BP E DC. BoA 
T='C € Dy E 6262 A GC 
T4=D D Fs G2 A2 A G2 F&% 
TS=C C Da E G G2 D+ E 


Podemos agora utilizar uma técnica 
de compressão: as minimelodias não se- 
rão digitadas sempre que aparecem na 
“música completa, mas uma única vez, 
junto a códigos que especificam a se- 


quência em que devem ser tocadas. Co- 
mo costuma ocorrer quando comprimi- 
mos dados, o programa que lê a melo- 
dia assim digitada é maior que a an- 
terior: 

10 LET €C=0: LET T=.2 

20 RESTORE 100 

30 FOR N=1 TO C+1: 
NEXT N 

40 IF P=0 THEN GOTO 10 
50 RESTORE P 

60 READ N 

70 IF N>=255 THEN 

GOTO 20 

80 SOUND T,N 

90 GoTo 60 
100 DATA 110,120,110,120,130, 
120,110,120,140,150,110,120,0 
110 DATA 12,12,15,16,19,19,21, 
19,12,255 
120 DATA 24,22,21,19,17,16,14, 
255 
130 DATA 17,17,20,21,24,24,26, 
24,17,255 
140 DATA 19,19,23,24,26,26,24, 
23,255 
150 DATA 17,17,20,21,24,24,20, 
21,255 


a 


1 SOUND 7,56:S0OUND 8,15 

2 SOUND 1,0 

10 C=0:T=120 

20 RESTORE 

27 FORZ=1TOC+1:READP:NEXT 

28 IFP=OTHENIO 

29 RESTORE:FORW=1TOP:READWW :NEX 
T 

30 READK: IFK=255THENC=C+1:GOTOZ 
0 


READ P: 


LET C=C+l: 


50 SOUND 0,K 

60 FORZ=1TOT:NEXT 

70 GOTO30 

100 DATA 13,23,13,23,31,23,13,2 
3,41,50,13,23,0 

110 DATA 213,213,179,169,142,14 
2,126,142,213,255 

120 DATA 106,119,126,142,159,16 
9,189,255 

130 DATA 159,159,134,126,106,10 
6,94,106,159,255 

140 DATA 142,142,112,106,94,94, 
106,112,255 

150 DATA 159,159,134,126,106,10 
6,134,126,255 

10013 ,23,13,23,0 


eb) Ló) 


1 FORI = O TO 22: READ A: POK 
E 800 + I,A: NEXT 
8,192,136,208,5,206,132,3,240,6 
;,202,208,245,76,34,3,96 

10 € = 0:T = 100 


20 RESTORE 
27 FOR Z=1TOC+ 24: READP 
: NEXT 


28 IF P = O THEN 10 


29 RESTORE : FOR W = 1 TO P+ 
23: READ WW: NEXT 
30 READ K: IF K = 255 THEN C = 


C+ 1: GOTO 20 
40 POKE 900,T: POKE 901,K 
50 CALL 800 


70 GOTO 30 

100 DATA 13,23,13,23,31,23,15 
,/23,41,50,13,23,0 

110 DATA 47,47,40,37,31,31,72 
8,31,47,255 

120 DATA 23,26,28,31,35,37,4 
2,255 

130 DATA 35,35,29,28,23,235, 
21,23,35,255 

140 DATA 31,31,25,23,21,21,2 
3,25,255 

150 DATA 35,35,29,28,23,23,4 
9,28,255 


220 DATA 255 

À DIM A(5S,1):FOR K=1 TO 13:READ 
P:NEXT:GOTO 3 

2 READ P:IF P<>255 THEN 2 

3 N=N+1:A(N,0)=PEEK(51) :A(N,1)= 
PEEK (52) : IF N<5 THEN 2 

JO C=0:T=3 

20 RESTORE 

30 FOR N=1 TO C+I:READ P:NEXT 
40 IF P=0 THEN 10 

50 POKE 51,A(P,0):POKE 52,A(P,1 
) 

60 READ N 

70 IF N=255 THEN C=C+1:GOTO 20 
BO SOUND N,T 

90 GOTO 60 

100 DATA 1,2,1,2,3,2,1,2,4,5,1, 
2,0 

110 DATA 175,175,189,193,204,20 

4,210,204,175,255 

120 DATA 218,213,210,204,197,19 

3,185,255 

130 DATA 197,197,207,210,218,21 

8,223,218,197,255 

140 DATA 204,204,216,218,223,22 

3,218,216,255 

150 DATA 197,197,207,210,218,21 

8,207,210,255 


Note que o número de dados neces- 
sários para a execução da melodia foi 
muito reduzido — no Spectrum, por 
exemplo, diminuiu de 97 para 59 bytes. 
Rodando o programa, você verá que a 
música é exatamente a mesma do pro- 
grama anterior. Os usuários do Spec- 
trum vão estranhar o andamento da me- 
lodia, mas logo terão uma explicação. 

Os dados que definem as minimelo- 
dias estão nas linhas 110 a 150 e a se- 
quência principal — isto é, a ordem em 
que as minimelodias são executadas — 
fica na linha 100. O laço na linha 30 
acerta o valor de P (variável de traba- 
lho utilizada na leitura das linhas DA- 
TA) de acordo com a seqliência princi- 
pal, definindo a minimelodia a ser to- 
cada. Na realidade, a sequência princi- 








pal é uma lista de números — ou de va- 
lores que, combinados com uma cons- 
tante, resultam em números de linha — 
correspondentes às linhas onde se encon- 
tram as minimelodias. 

Identificada a minimelodia a ser exe- 
cutada, a linha 50 calcula o número da 
linha DATA correspondente. Só o Spec- 
trum permite o uso da instrução RES- 
TORE durante a leitura do bloco de da- 
dos. O Apple e o MSX empregam laços 
FOR...NEXT e o TRS-Color tem os 
pontos de entrada gravados na linha 3. 

A linha 10 utiliza a variável € para 
a contagem do número de minimelodias 
já tocadas. A duração de cada nota é 
controlada por T, que também determi- 
na o andamento da música. A linha 40 
(28, no Apple e no MSX) verifica a úl- 
tima minimelodia, que é marcada com 
O na linha 100. O número 255 assinala 
o final de cada minimelodia. Ao 
encontrá-lo, o computador volta à se- 
quência principal para saber qual será 
a próxima minimelodia. 

Existem várias alternativas para a di- 
visão de uma música em segiiência prin- 
cipal e minimelodias. De um modo ge- 
ral, quanto menores as minimelodias, 
maior é a sequência principal. Devemos 
buscar um equilíbrio entre esses dois ele- 
mentos, a fim de evitar que minimelo- 
dias muito curtas exijam uma seguên- 
cia principal tão longa que anule as van- 
tagens da compressão. 


DIVIDINDO PARA VENCER 





A segunda técnica de compressão é 
ainda mais eficiente. Ela parte do prin- 
cípio de que, embora os micros possam 
tocar um grande número de notas — pe- 
ralmente 256 —, poucas delas são de fa- 
to utilizadas durante a execução de uma 
melodia. Assim, não nos interessa — e 
não é econômico — empregar um siste- 
ma planejado para aceitar um grande 
número de notas. 

Cada posição de memória em seu mi- 
crocomputador de oito bits é capaz de 
armazenar um número inteiro entre O e 
255. Restringindo a quantidade de no- 
tas a serem armazenadas, será possível 
colocar duas delas em cada posição — 
uma em cada quatro bits. Por exemplo, 
o número binário 10100010, de oito bits, 
pode ser interpretado como um só va- 
lor decimal — 162 — ou como dois va- 
lores — 10 (1010 em binário) e 2 (0010 
em binário). 

Dividir por dois o espaço disponível 
diminui drasticamente o intervalo de va- 
lores que podemos armazenar: O a 15. 
Contudo, muitas vezes isso é suficien- 
te, pois o número de notas diferentes em 


uma melodia simples raramente ultra- 
passa dezesseis. 

Para utilizar essa técnica de compres- 
são, precisamos reduzir o número de no- 
tas a quinze, deixando o 16º valor co- 
mo um código de controle. Já comen- 
tamos que, quanto mais comprimidos os 
dados, maior é o programa necessário 
para interpretá-los. Aqui, o programa 
deve decifrar cada nota abreviada que 
vai lendo nas linhas DATA. 

O usuário, por sua vez, terá o traba- 
lho de selecionar as notas que serão usa- 
das na melodia, classificando-as em or- 
dem crescente, conforme a freqiiência, 
a partir da nota mais baixa da primeira 
oitava — nesse caso, Gl. Em seguida, 
precisará calcular os números codifica- 
dos que aparecerão nas linhas DATA. 
Nossa melodia inclui doze notas: G, A, 
A&,B,C,D,D£,E,F,Fx, G2e A2. 

Digite o terceiro programa e veja O 
sistema em ação. 


12 GOSUB 1000: LET T=.15: LET 
NT=130: LET MS=170: LET MT= 
210: GOSUB 300 

90 STOP 


100 DATA 12,14,15,16,17,19,20, 
21, 22,45, 24,20,0,0:2040 
200 DATA Errada ep pd 


2,0 

210 DATA 0,35,85,117,15,255 
220 DATA 168,117,67,31,255 
230 DATA 68,103,17/0,186,/7/9,255 
240 DATA 85,154,187,169,255 
250 DATA 68,103,1/7/0,103,255 
310 RESTORE NT 

320 FOR N=23410 TO 23425 

330 READ X: POKE N,X: NEXT N 
345 LET NM=0 

350 RESTORE MS: LET HL=23426 
360 READ X 

365 IF X2NM THEN LET NM=X 


370 IF X=0 THEN GOTO 400 


380 POKE HL,X: LET HL=HL+1: 
GOTO 360 

400 POKE HL,X: LET HL=HL+1 
401 LET X=HL: GOSUB 600 
402 POKE 23403,LSB 

403 POKE 23404,M5B 

430 RESTORE MT 

440 FOR N=1 TO NM 

450 READ X 

460 IF X=255 THEN GOTO 500 
470 POKE HL,X: LET HL=HL+1: 
GOTO 450 

500 PORE BL,X: LET HL=BL+1 
510 NEXT N 

511 RAND USER 23371 

512 POKE 23409,0 

530 LET X=USR 23296 

540 IF X=255 THEN RETURN 
350 SOUND T,X: GOTO 530 
600 LET MSB=INT (X/256) 

610 LET LSB=kX- (MSB*256): 
RETURN 


1000 RESTORE 2000: LET TO=0: LE 
T L=2000 

1030 FOR N=23296 TO 23296+111 85 
TEP 8 


1040 FOR K=0 TO 7: READ A: LET 
TO=TO+A: PORE K+N,A: NEXT K 
1050 READ A: IF A<>TO THEN GOT 
O 1080 

1060 LET L=L+10: LET TO=0: NEXT 
N 

1065 RESTORE : RETURN 

1080 PRINT "ERRO DE DADOS NA LI 
NHA ":;L: STOP 

2000 DATA 42,109,91,235,42,111, 


91,58,779 

2010 DATA 113,91,70,183,202,24, 
91,175,949 

2020 DATA 8,35,62,15,160,195,36 
,191,602 


2030 DATA 61,1,8,203,56,203,56, 
203,79] 

2040 DATA 56,203,56,120,254,15, 
202,65,971 

2050 DATA 91,34,111,91,235,34,1 
09,91,796 

2060 DATA 8,50,113,91,33,114,91 
22,522 

2070 DATA 0,8,95,25,126,6,0,79, 
339 

2080 DATA 201,26,19,183,194,81, 
91,1,796 

2090 DATA 255,0,201,17,130,91,1 
95,65,954 

2100 DATA 91,71,42,107,91,43,62 
,1255,762 

2110 DATA 16,5,35,175,195,10,91 
(35,562 

2120 DATA 190,194,103,91,195,88 
191,35,987 

2130 DATA 195,96,91,0,0,0,0,0,3 
BZ 


o 


10 SOUND 7,56:SOUND 8,15 

20 SOUND 1,0 

23 DIM X(16) :RESTORE:FOR N=1 TO 
16:READ X(N) :NEXT 

25 C=0:T=100 

26 RESTORE1000 

2? FORZ=1TOC+1I:READP:NEXT 

28 IFP=OTHEN2S5 

29 RESTORE1010:FORW=1ITOP+2:READ 

WW: NEXT 

50 READN: SS=N 

60 N=INT(N/16) 

70 IFN=15THENC=C+1:GOTO2Z6 

B0 GOSUB130 

90 N=S5S:N=15ANDN 


100 IFN=15THENC=C+1:GOTO26 

110 GOSUB130 

120 GOTO50 

130 SOUNDO,X(N+1) 

140 FORZ=1TOT:NEXT 

150 RETURN 

450 DATA 213,189,179,169,159,14 


2,134,126,119,112,106,94,0,0,0, 
Ú 

1000 DATA 5,10,5,10,15,10 

1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 

1120 DATA 168,117,67,31,255 





NUS 








| 
| | 
| | 
| || 


1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 


Dito 


1 FOR I =OTOZ2: READ A: POK 
E 800 + I,A: NEXT 

2 DATA 160,0,174,133,3,238,4 

B,192,136,208,5,206,132,3,240,6 
,202,208,245,76,34,3,96 

23 DIM X(16): FOR N = 1 TO 16: 
READ X(N): NEXT 

25 €C = 0:T = 100 

26  RESTORE 

27 FOR Z=1TOc+ ao: READ P 
* NEXT 

28 IF P = O THEN 25 

29 RESTORE FOR W = 1 TO P+ 

47: READ WW: NEXT 

50 READ N:S5S = N 

60 N = INT (N / 16) 

7Oo IF N= 15 THENC=C+I: G 

OTO 26 

BO GOSUB 130 

90 N= 5858 - N* 16 

100 IF N= 15 THENC=cC+ÃaIl: 

GOTO 26 

110 GOSUB 130 

120 GoTo 50 

130 POKE 900,T: POKE 901,X(N + 
1) 

140 CALL 800: RETURN 

450 DATA 47,42,40,37,35,31,29 
,28,26,25,23,21,0,0,0,0 


1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 
1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 


10 DIM A(5,1),X(16):FOR K=1 TO 

16:READ X(K) :NEXT:A(0,0)=PEEK(5 

1):A(O,1)=PEEK(52) 

15 FOR K=1 TO 13:READ P:NEXT:GO 

To 30 

20 FOR K=1 TO 5:READ P:NEXT 

30 N=N+1:A(N,0)=PEEK(51) :A(N,1) 

=PEEK (52) :IF N<5 THEN 20 

40 C=0:T=3 

50 POKE 51,A(0,0) :POKE 52,A(0,1 
):FOR N=1 TO C+1:-READ P:NEXT: IF 
P=0 THEN 40 

) 

65 READ N:S=N 

70 N=INT(N/16) 

75 IF N=15 THEN C=C+]:GOTO 50 
BO GOSUB 130 

90 N=S:N=15 AND N 

100 IF N=15 THEN C=C+1:GOTO 50 
110 GOSUB 130 

120 GOTO 65 

130 SOUND X(N+1),T:RETURN 

450 DATA 175,185,189,193,197,20 
4,207,210,213,216,218,223,0,0,0 
0 

1000 DATA 1,2,1,2,3,2 

1010 DATA 1,2,4,5,1,2,0 


1110 DATA 0,35,85,117,15 

1120 DATA 168,117,67,31,255 
1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 


Os valores das frequências dessas no- 
tas estão codificados na linha 450 (100 
no Spectrum). Essa linha deve conter de- 
zesseis valores. No MSX, poderíamos 
precisar de 32 valores para outras me- 
lodias, já que ele requer dois parâmetros 
para um valor de nota. 

Em todas as versões, codificamos só 
doze notas; assim, quatro espaços são 
preenchidos com 0. Os quatro digitos bi- 
nários (chamados nybble) que formam 
cada nota das minimelodias estão codi- 
ficadas nas linhas 1000 e 1010 (200 e 210 
no Spectrum). Para entender como se 
calculam esses valores, tomemos como 
exemplo a minimelodia Tl. Veja os nú- 
meros da sequência principal na linha 
450 (100 no Spectrum). Chamemos a 
primeira nota dessa linha de O, a segun- 
da de 1 e assim por diante, até a última 
nota, que será 15. Se escrevermos a mi- 
nimelodia Tl com esses códigos, tere- 
mos Ti = 0,0,2,3,5,5,7,95,0,15. 
O número 15, no caso, indica o final da 
minimelodia, e não uma nota. Cada um 
desses valores cabe em um nybble; as- 
sim, precisamos combiná-los em pares 
para obter os bytes. 

O primeiro par de nybbles é 0 e O, va- 
lores que correspondem em binário, a 
0000 e 0000. Combinados em um byte, 
resultam no decimal O. O primeiro va- 
lor da linha DATA 1110 (210 no Spec- 
trum), que equivale a T1, é, portanto, O. 
O próximo par é 2 e 3 — em binário, 
0010 e 0011. Combinados, esses valores 
resultam em 00100011, ou 35 em deci- 
mal. Este é o segundo valor da linha 
1110 (ou 210). Procedendo dessa manei- 
ra com a minimelodia seguinte, teremos 
T2 = 10,9, 7,95,4,3, 1, 15. Combina- 
dos, os valores 10e 9 — 1010 e 1001 em 
binário — resultam 168 em decimal. Es- 
te é o primeiro valor de T2 na linha 1120 
(220 no Spectrum). 

Utilizamos esse método para calcu- 
lar os valores correspondentes às mini- 
melodias, armazenados nas linhas 1110 
a 1150 (210 a 250 no Spectrum). Como 
no programa anterior, a sequência prin- 
cipal (linhas 1000 e 1010, ou 200 no 
Spectrum) aponta para as linhas DATA 
onde estão as minimelodias, na ordem 
em que devem ser tocadas. 


O PROCESSO INVERSO 





Outra parte importante do programa 
é a que se encarrega de extrair os nybbles 


MAIS MELODIAS 


Como exercício, tente codificar outras 


melodias, utilizando o último programa | 


deste artigo. Identifique as minimelo- 
dias e as sequências principais, calcu- 
le os valores correspondentes e colo- 


que-os em linhas DATA. Será preciso | 


redefinir as matrizes — X( ) — da se- 


| quência principal para cada nova me- | 
lodia, o que pode exigir a renumeração | 


do programa. 


dos números decimais lidos nas linhas 
DATA. O Spectrum faz isso colocando 
o valor em uma variável (linha 401) e 
chamando, em seguida, uma sub-rotina 
(linhas 600 e 610) que separa os dois 
nybbles do byte. Devidamente proces- 
sados, esses valores são utilizados para 
emitir duas notas. 

Nos outros micros, as linhas 50 a 100 
cuidam da decodificação. Primeiro, o 
byte em exame, N, é armazenado na li- 
nha 50. A linha 60 extrai o nybble mais 
significativo e a linha 70 verifica o có- 
digo de final de melodia. A linha 80 cha- 
ma a sub-rotina que executa a nota cor- 
respondente e a linha 90 extrai o nybble 
menos significativo, usando a operação 
lógica AND (menos no Apple e no 
TK-2000, cuja função AND não permi- 
te o cálculo de valores diferentes de O e 
1). A nota é então emitida. Note que o 
byte em exame é preservado, sem o que 
não seria possivel recuperar o segundo 
nybble. 

Ao executar esse programa, os usuá- 
rios do Spectrum observarão que os pro- 
blemas de andamento causados pela 
compressão já não ocorrem. O defeito 
era provocado por um tempo extra de 
processamento, necessário ao realinha- 
mento dos ponteiros, ou seja, ao uso de 
RESTORE. O programa reduziu esse 
tempo de processamento por meio de 
uma rotina em código, armazenada nas 
linhas 1000 a 2130. Esta é a razão das 
diferenças de tamanho e numeração en- 
tre o Spectrum e os demais micros. 

Para alterar a velocidade de execu- 
ção, altere o valor de T. Ele fica na li- 
nha 12, no Spectrum, e na linha 40, nos 
outros computadores. Observe, porém, 
que o intervalo de tempo entre o final 
de uma minimelodia e o início da seguin- 
te torna-se mais acentuado à medida que 
T diminui. 














DE WILLIE 


Mesmo que você seja um exímio jo- 
gador, mais cedo ou mais tarde a morte 
levará Willie. Mas não se afobe. Ele tem 
cinco vidas — nem tantas como um ga- 
to; bem mais, porém, do que os pobres 
mortais. Quando a fatalidade atingir 
Willie definitivamente, você deverá 
enterrá-lo, imprimir o placar final e 
ajustar todas as variáveis. 

Os sons emitidos pelo Spectrum são 
muito simples, acompanhando a execu- 
ção dos programas. O TRS-Color pode 
produzir sons sofisticados. Mas, como 
para isso é necessário utilizar o proces- 
sador, não se pode tocar um som e exe- 
cutar o jogo simultaneamente. 








A rotina apresentada a seguir promo- 
ve a morte de Willie e verifica se ele po- 
de ser ressuscitado. 


10 REM org 59652 

20 REM die ld de,196 

30 REM ld h1,1086 

40 REM call 949 

50 REM ld de,131 

60 REM ld h1,1646 

70 REM call 949 

BO REM dead ld h1,(57332) 


LENDO Do Do o as omico Dema ao 1 


AS CINCO VIDAS 


À morte vem para todos — mas não tão 
insistentemente como para Willie. 

Ele morre cinco vezes em cada jogo... 
e está sempre pronto a reiniciar 

a aventura na hora que você quiser! 


90 REM ld bc,15616 
100 REM ld a,45 

110 REM call 5821/ 
120 REM ld de,32 
130 REM add hl,de 
140 REM ld (57332),hl 
150 REM 1d bc,57000 
160 REM ld a,40 

170 REM ld de,258 
180 REM call 58970 
190 REM ld de,30 
200 REM ld h1,878 
210 REM ld a,r 
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220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


ld l,a 

call 949 

ld h1,(57332) 
ld de,704 
gsbc hl,de 

jr c,dead 

ld a,9 

ld (60005),a 
ld a, (57343) 
dec a 

ld (57343),a 
jp nz,58606 
ld h1,330 





REM 
REM 
REM 
REM 


| REM 


REM 
REM 
REM 
REM 
REM 


"REM 


REM 
REM 


CNN 1 E 


NOTAS FÚNEBRES 
“DESCIDA PARA 
“O INFERNO 
“PERDENDO VIDAS 
A ÚLTIMA MORTE 


ld a, l42 
ld b,11 

ld 1x,57992 
call me 
call 58939 
ld de,261 
ld h1,1646 
call 949 
ld de,392 
ld h1,1086 
call 949 
ld de,261 
ld h1,1646 





DE WILLIE 

— FUNERAL 

IMPRESSÃO 

—  DOPLACAR 

x SONS FINAIS 





480 REM call 949 

490 REM ld a,50 

500 REM ld (58732),a 
510 REM jp 58576 


Se Willie se atogou no mar, caiu num 
buraco, foi picado por uma cobra ou 
atingido por uma pedra, os sinos tocam, 
anunciando sua morte. Para que soem 
as duas badaladas fúnebres, a rotina 
BEEPER é chamada em 949 duas vezes 
— em cada uma delas, com parâmetros 
diferentes nos pares HL e DE. 


DESCIDA PARA O INFERNO 





Quando Willie morre, ele desce para 
o inferno, que se situa no fundo da te- 
la. Para criar esse efeito, começamos 
por apagar sua cabeça — se não o fizer- 
mos, teremos uma coluna de cabeças 
descendo até o fundo da tela! 

Assim, a posição de Willie na tela — 
que aponta para a posição de sua cabe- 
ça — é carregada da variável em 57332 
e 57333 para o par HL. BC é carregado 
com o endereço de um caractere limpo 
de céu do topo da tela. A é ajustado pa- 
ra ciano sobre ciano. Finalmente, a ro- 
tina print em 58217 é chamada, apagan- 
do a cabeça de Willie. 

O valor 32 é então somado ao apon- 
tador de tela em HL,, através do par DE, 
o que o faz se mover para a linha de bai- 
xo da tela. O resultado é colocado de 
volta em 57332 e 57333 para ajustar 
também a variável. 

BC é carregado com o endereço ini- 
cial da figura de Willie com as pernas 
juntas. A é ajustado com o código da 
cor de Willie, azul sobre ciano. DE é 
carregado com 258, especificando um 
bloco de um por dois — o conteúdo do 
registro D define a largura do bloco, e 
o conteúdo do registro E, sua profun- 
didade: | x 256 + 2 = 258. Arotina de 
impressão de bloco em 58970, blk, é 
chamada, exibindo na tela a figura de 
Willie com as pernas juntas, uma posi- 
ção abaixo da que ele ocupava antes. 

Enquanto Willie desce, ouve-se uma 
música “celestial”. Mais uma vez, Os 
pares de registros HL e DE são carre- 
gados com parâmetros que a rotina 
BEEPER utilizará, quando for chama- 














da em 949. Desta vez, porém, em vez de 
um som constante, o programa precisa 
de um som intermitente. Para isso, 
carrega-se o conteúdo do registrador R 
na parte menos significativa de HL, que 
é o registro L. A operação é realizada 
via acumulador porque não existe ne- 
nhuma instrução ld 1,r. 

Usamos o registro R para manter à 
memória dinâmica. Este é um recurso 
do hardware com o qual você não pre- 
cisa se preocupar. Para nossos fins, bas- 
ta saber que o valor desse registro é va- 
riável. Assim, cada vez que esta parte da 
rotina for acessada irá produzir um som 
diferente. 





SEIS PÉS DE PROFUNDIDADE 


A posição da cabeça de Wilhe é car- 
regada da variável em 57332 e 57333 pa- 
ra o par HL; 704 é carregado em DE e 
subtraído do conteúdo de HL. O núme- 
ro 704 — 32 x 22 — indica o começo 
da penúltima linha. Como Willie tem 
dois caracteres de altura, essa subtração 
colocará o valor 1 na baliza carry até 
que os pés de Willie tenham tocado o 
fundo da tela. 

Enquanto a baliza carry contiver 1, 
a instrução jr c, dead manda o proces- 
sador de volta ao início da rotina de en- 


terro do personagem. Willie será afun- 
dado mais uma posição e os sinos vol- 
tarão a tocar — num tom diferente. 
Quando os pés de Willie tocarem o in- 
ferno, ele estará completamente enter- 
rado. A baliza carry não será ajustada 
com 1 pela subtração, não haverá salto 
e o processador passará a executar a 
próxima instrução. 

Tendo Willie chegado ao seu destino 
final, convém tocar uma canção confor- 
tadora. Assim, carrega-se A com 9e a 
rotina sound em 60006 é chamada. Ela 
executa uma versão curta da melodia 
inicial do jogo. Para obter maiores de- 
talhes sobre rotina da música, reveja O 
artigo da página 788. 

Como nosso personagem perdeu uma 
vida, precisamos reajustar — ou me- 


lhor, decrementar — o número de vidas. 


O valor dessa variável é carregado de 
57343 para o acumulador, decrementa- 
do e recolocado em 57343. 

Se Willie ainda dispõe de alguma vi- 
da, a instrução jp nz manda o proces- 
sador de volta ao programa de iniciali- 
zação, em 58606. Caso contrário, con- 
tinua na rotina de nova partida. 





ACABARANM-SE AS VIDAS 


Quando Willie tiver morrido pela 
quinta vez, o jogo acaba. Precisamos, 
então, imprimir a mensagem “GAME 
OVER!”. Para isso, chamamos a roti- 
na de mensagens, ou me, em 58155. Co- 
mo sempre, os parâmetros devem ser co- 
locados nos registros HL, A, B e IX. 

A posição de impressão é carregada 
em HL. A cor é ajustada em A. B car- 
rega o comprimento da mensagem e IX 
é usado como apontador de dados. Os 
dados para a mensagem estão em 57892. 

A rotina que imprime o escore em 
58939 é chamada para imprimir o pla- 
car. Em seguida, ouve-se o toque que 
marca o final do som no jogo. Para 



























produzi-lo, a rotina BEEPER é chama- 
da em 949 três vezes, com valores dife- 
rentes em HL e DE a cada vez. 

Para reajustar o atraso inicial, 
carrega-se o acumulador com 50 e 
transfere-se o valor na posição 58732. 
Esse endereço ainda não foi menciona- 
do: ele pertence à rotina final do jogo 
e é incumbido de controlar o atraso ge- 
ral. O processador salta para 58578, 
ajustando-o de maneira que você possa 
dar reinício à aventura, se quiser. 


A rotina a seguir coloca Wille em seu 
túmulo: 


10 ORG 20560 
20 DIE LDA 4136 





30 LDX 4140 

dO JSR SOUND 

50 LDA 4131 

60 LDX 4213 

70 JSR SOUND 

80 DI LDX 18249 
90 LDU 41536 


100 JSR CHARPR 
110 LEAX 254,X 
120 STX 18249 
130 LDU 417774 
140 JSA CHARPR 
150 LEAX 254,X 
160 JSR CHARPR 
170 LDA 430 
180 LDX 4113 
190 JSR SOUND 
200 LDX 18249 
210 CMPX 46912 
220 BLO DI 

230 DEC 18239 
240 LBNE NLV 








250 PB LDA 45 

260 PAA LDX 465535 
270 LEAX -1,X 

280 BNE PAA 

290 DECA 

300 BNE PB 

310 JSR CLS 

320 LDA SFF22 

330 ANDA 415 

340 STA SFF22 

350 STA SFFC2 

360 STA SFFC4 

370 STA SFFC6 

380 LDY 4550B 

390 LDX 45701 

400 STX ,Y++ 

410 LDX +45DO5 

420 STK I++ 

430 LDX 45200F 
440 STX ,Y++ 

450 LDX 431605 
460 STK ,Y++ 

470 LDX 451221 
480 STX ,Y++ 

490 LDA 4200 

500 LDX 4255 

510 JSR SOUND 

520 LDA 4200 

530 LDX 4200 

540 JSR SOUND 

550 LDA 4255 

560 LDX 4255 

570 JSR SOUND 

580 LDA 4100 

590 STA DLL+1 

600 LBRA GBIN 

610 SOUND EQU 55133 
620 CHARPR EQU S4BCA 
630 DLL EQU 551ED 
640 GBIN EQU S4BE2 
650 NLV EQU S4BF7 
660 CLS EQU S4ACC 





OS SINOS 


Quando a rotina começa, ouve-se um 
sino bater duas vezes. A homenagem so- 
nora ao finado Willie, porém, é promo- 
vida pela rotina SOUND, que será for- 
necida no próximo artigo de Avalanche. 

Antes de testar o programa aqui 
apresentado, lembre-se de colocar um 
RTS no endereço inicial de SOUND, 
$5133. Caso contrário, haverá um erro. 

SOUND requer dois parâmetros que 
especifiquem o tipo e a duração do som. 
Eles são utilizados pela rotina nos regis- 
tradores A e X. Como as duas notas 
produzidas diferem uma da outra, a ro- 
tina SOUND trabalha com parâmetros 
distintos a cada chamada. 


DESCENDO PARA O INFERNO 


Willie descerá na tela em direção ao 
inferno. Sua figura anterior deve, assim, 
ser apagada. 

X é carregado com o conteúdo de 





18249, que aponta para a posição que 
o personagem ocupa na tela; U é carre- 
gado com 1536, o endereço do céu no 
topo da tela. Em seguida, a rotina 
CHARPR é chamada e imprime um 
bloco de céu, apagando a metade supe- 
rior da figura de Willie. O conteúdo de 
X é então adicionado a 254 e recoloca- 
do em 18249, para que o apontador de 
Willie desça um caractere na tela. 

U é carregado com 17774, o endere- 
ço inicial dos dados para a figura de 
Willie com as pernas juntas. Depois, o 
processador salta para a rotina 
CHARPR, que imprime a metade supe- 
rior de Willie uma posição abaixo da úl- 
tima impressão. Novamente, X é incre- 
mentado com 254 e CHARPR é chama- 
da para imprimir a metade inferior da 
figura. 

Enquanto Willie está descendo na te- 
la, ouve-se um grito de agonia — para 
isso, A e X são carregados de novo € O 
processador salta para SOUND. 

Wilhe deve chegar ao fundo da tela. 
Verificamos se isso já ocorreu carregan- 
do X com o conteúdo de 18249 e com- 
parando esse valor com 6912, o início 
de 28º linha da tela. Se a posição de Wil- 
lie em X for menor do que 6912, a ins- 
trução BLO manda o processador rei- 
niciar o laço DI e move Willie um ca- 
ractere para baixo. Caso contrário, O 
processador segue em frente, pois Wil- 
lie chegou ao fundo da tela. 

O conteúdo de 18249 — que arma- 
zena o número de vidas que restam a 
Willie — é então decrementado e LBNE 
NLY manda o processador para a roti- 
na que dá nova vida a Willie e traz de 
volta a última tela. Uma instrução de 
desvio longo é usada neste ponto, por- 
que a rotina NLY encontra-se numa 
parte bem anterior do programa — cer- 
tamente mais do que 128 bytes, o limite 
para um desvio curto. 






OUTRA PARTIDA 


Se o conteúdo de 18249 foi reduzido 
a O, Willie não tem mais nenhuma vi- 
da, O jogo terminou e o processador exe- 
cuta a instrução seguinte. 

A é carregado com 5; X é carregado 
com 65535 e, depois, decrementado. O 
processador fica nesse laço até que X se- 
ja O. Em seguida, A é decrementado e 
X volta a ser carregado com 65535. O 
processo se repete até que A também te- 
nha sido reduzido a 0. 

O processador fica nesse laço 5 x 
65535 vezes — pausa suficiente para que 
o jogador medite sobre o trágico desti- 
no de Willie. Ao sair do laço de atraso, 
o processador salta para a rotina CLS, 
que limpa a tela. 











O conteúdo de $FF22 é então carre- 


gado em A, onde se executa a operação 
lógica AND com o valor 15. O resulta- 
do é armazenado nas posições de memó- 
ria $FF22, $FFC2, $FFC4 e $FFC6. 

Informamos, assim, ao VDG (gera- 
dor do sinal de vídeo) e ao SAM (multi- 
plexador sincrono de endereços) que es- 
tamos voltando ao modo texto. O pro- 
cedimento é o inverso do que utilizamos 
ao mudar para o modo gráfico. 

Y é carregado com $50B, posição on- 
de iremos imprimir a expressão “GA- 
ME OVER!".X, por sua vez, é carre- 
gado com $701, códigos de tela para as 
letras GA. Essas letras são colocadas na 
tela na posição apontada por Y, que é 
incrementado duas vezes. 

Em seguida, X é carregado com os 
códigos de tela para ME e as duas letras 
são impressas na nova posição aponta- 
da por Y, dois blocos à direita do início 
de GA, Por fim, os últimos caracteres 
— O, VE e R! — são carregados e im- 
pressos nas posições adequadas. 

Um som anuncia o fim do jogo. Co- 
mo esse som é formado por três notas, 
A e X são carregados e a rotina SOUND 
é chamada três vezes. 

O número 100 é carregado no acumula- 
dor e armazenado em $51EE. Com isso, 
ajustamos o atraso com o valor inicial. 
Quando o jogo for novamente executa- 


do, começará com a mesma velocidade, 

Encerrando a execução da rotina, o 
processador faz um longo desvio para 
o início do programa em GBIN,. 


7! ERRA 


A rotina a seguir enterra Willie e ve- 
rifica se pode ser ressuscitado: 


10 org 55334 

20 ld h1,(-5205) 
30 ld de, (62407) 
40 add hl,de 

50 inc h1 

60 ld a,255 

TO push hl 

80 call 77 

90 pop hl 


100 dec hl 
110 dec hl 
120 ld a,255 
130 push hl 
140 call 77 
150 pop hl 
160 ld de,32 
170 add hl,de 
180 ld a,255 
190 push hl 
200 call 77 
210 pop hl 
220 inc hl 
230 inc hl 
240 ld a,255 
250 push hl 
260 call 77 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570, 


580 
590 
600 
610 
620 


ad 


pop hl 

inc hl 

ld a,255 

call /f 

mo ld h1,(-5205) 
push hl 

ld de, (62407) 
add hl,de 

ld a,255 

call 77 

pop hl 

ld de,32 

add hl,de 

ld (-5205),hl 
ld de, (62407) 
add hl,de 

ld a,0 

push h1 

call 77 

pop hl 

ld de,32 

add hl,de 

ld a,l 

call 77 

ld b,255 

atr ld a,255 
dl dec a 

jr nz,dl 
djijnz atr 

ld h1l,(-5205) 
ld de,704 
sbc hl,de 

jr c,mo 

ld a, (-5221) 
dec a 

ld (-5221),a 


E sli 
= 


s 








| 








630 jp nz,53888 
640 ld de,234 
650 ld a,114 
660 ld b,12 

670 tt push bc 
6B0 push de 

690 push af 

700 ld h1, (62407) 
710 add hl,de 
720 cali 77 

730 pop af 

740 inc a 

750 pop de 

760 inc de 

770 pop bc 

780 dijnz tt 

790 ld b,30 

B00 tu ld a,255 
B1O du ld c,255 
820 su dec c 
830 jr nz,su 
Bal dec a 

B50 jr nz,du 
860 djnz tu 

B7z0 call 54023 
B80 ld a,50 

B90 ld (54133),a 
900 jp 53855 
910 end 


Essa rotina é executada quando nos- 
so personagem morre — depois de se 
afogar no mar, cair num buraco, ser pi- 
cado por uma cobra ou ser atingido e 
esmagado por uma pedra, 


ta 
Part 
id 


a 












APAGANDO OS VESTÍGIOS | 


Antes de mandar Willie para o infer- 
no, a rotina apaga seus vestígios na su- 
perfície. Se ele foi atingido por uma pe- 
dra, esta também será apagada, evitan- 
do a deformação de figuras. Para isso, 
coloca-se o padrão do céu, código 255, 
em cinco posições ao redor de Willie. 
Examinando todas as situações de coli- 
são, você verá que essas são as posições 
necessárias. 

O par HL é carregado com a posição 
de Willie na tela, que está no apontador 
em — 5205 e — 5204; DE é carregado 
com o endereço inicial da TN da VRAM 
e somado em HL, o apontador na im- 
pressão. Em seguida, a rotina 77 da 
ROM é chamada cinco vezes, com o va- 
lor de HL apontando para cinco dife- 
rentes posições ao redor de Willie. 
Lembre-se de que a rotina 77 — utiliza- 
da no decorrer do jogo para imprimir 
um padrão na tela — coloca O valor 
de A no endereço da VRAM apontado 
por HL. 


DESCIDA PARA O INFERNO 





Willie chega até o fundo da tela, em 
sua descida ao inferno. Para criar esse 
efeito, começamos por apagar sua ca- 
beça — se não o fizermos, veremos no 
video uma coluna de cabeças! 

A posição de Willie, que aponta pa- 
ra a sua cabeça, é carregada da variável 
em — 5205 e — 5204 para HL, par de re- 
gistros guardado na pilha. O endereço 
inicial da TN na VRAM é carregado em 
DE e somado em HL. A rotina 77 colo- 
ca o padrão 255 nessa posição, apagan- 
do a cabeça de Willie. A posição é re- 
cuperada da pilha para HL, sendo so- 
mada a 32 através de DE e colocada de 
volta em — 5205 e — 5204. Assim, Wil- 
lie afunda uma posição na tela. 

Esse novo valor é somado com o en- 
dereço inicial da TN na VRAM através 
de DE, O acumulador é carregado com 
O, o código do primeiro padrão da fi- 
gura de Willie com as pernas juntas. O 
apontador é colocado na pilha e a roti- 
na 77 é chamada. O apontador é recu- 
perado da pilha e somado com 32, mo- 
vendo-se para a posição de baixo. A é 
carregado com 1, o código do segundo 
padrão da figura de Willie. Chama-se a 


rotina 77 e Willie desce uma posição. 


Em seguida, Be A são carregados 
com 255. O acumulador é decrementa- 
do até O no laço dl. Quando chega a es- 
se valor, o processador, por meio da ins- 
trução djnz atr, decrementa B, reajusta 
A com 255 e repete o processo até que 
B também seja O. Esse laço é executado 





| 
| 


255 x 255 vezes e tem como único fim 
atrasar a descida de Willie, para que o 
jogador possa vê-la. 

A posição de Willie é carregada da 
variável em — 5205 e —- 5204 para HL, 
onde é subtraida de 704 através de DE. 
Esse valor indica o começo da penúlti- 
ma linha na tela. Como Willie tem dois 
caracteres de altura, a subtração irá co- 
locar o valor | na baliza carry até que 
seus pés tenham tocado o fundo da te- 
la. Enquanto a baliza tiver esse valor, 
a instrução jr cmo manda o processa- 
dor de volta ao início da rotina do en- 
terro, que afunda Willie mais uma po- 
sição. Quando seus pés tocarem o chão, 
ele estará completamente enterrado; a 
baliza carry não terá mais o valor | e 
não haverá o saltó. O processador pas- 
sa, então, a executar a próxima ins- 
trução. 

O número de vidas precisa ser reajus- 
tado — ou melhor, decrementado, pois 
o pobre Willie perdeu uma vida. O nú- 
mero de vidas é carregado no acumula- 
dor em — 5221, decrementado e recolo- 
cado no mesmo endereço. Se ainda res- 
tam vidas a Willie, o processador salta 
para o programa de inicialização, em 
53888. Caso contrário, continua na ro- 
tina de nova partida. 








ACABARAM-SE AS VIDAS 


Quando Willie tiver consumido suas 
cinco vidas, o jogo acaba. Devemos, en- 
tão, imprimir “NOVA PARTIDA”, 
com os padrões previamente colocados 
na tabela de padrões da VRAM pela ro- 
tina fornecida no artigo da página 1001. 

O par DE é carregado com 234, po- 
sição da tela onde a primeira letra será 
impressa. A contém o código de padrão 
da primeira letra; B, o número de pa- 
drões (doze, incluindo o espaço em 
branco). O laço tt é executado doze ve- 
zes, usando a rotina 77 para imprimir 
a mensagem no centro da tela. Note que 
este trabalho foi bem simplificado, por- 
que os padrões para a mensagem já es- 
tavam na VRAM, em seqiiência. 

Depois, o laço formado por tu, du e 
su é executado 30x 255 x 255 vezes, pro- 
movendo o atraso necessário para à 
mensagem ser lida na tela. A rotina que 
imprime o escore em 54023 é chamada 
para imprimir o placar final, 

Para reajustar o atraso geral do jo- 
£o, carregamos o acumulador com 50 e 
transferimos esse valor para 54133 — 
endereço que pertence à rotina final e 
controla a velocidade do jogo. 

O processador salta para 53855, o ini- 
cio da rotina principal, para que você 
tente de novo, se quiser, 
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OPERAÇÕES 
COM CADEI 


A linguagem BASIC tem excelentes 
recursos para programação com variá- 
veis literais (alfanuméricas). Diversas 
funções de manipulação de cadeias de 
caracteres (string) garantem a essa lin- 
guagem uma grande versatilidade. Va- 
mos relembrar, resumidamente, o que 
faz cada uma dessas funções. 

Funções gerais 
LEN(XS) - Retorna o comprimento 
da cadeia X$ (um núme- 
ro inteiro entre O e 255). 
Existe para todas as ver- 
sões de BASIC. Nos mi- 
crocomputadores ZX-81 e 
Spectrum não é necessá- 
rio colocar X$ entre pa- 
rênteses. 
Retorna o código ASCII 
(um número inteiro entre 
O e 255) do primeiro ca- 
ractere da cadeia X$. No 
micro Sinclair ZX-81 de- 
nomina-se CODE. 
Tem a função inversa de 
ASC, ou seja, retorna o 
caractere correspondente 
ao código ASCII indica- 
do pela variável X. 
STRINGS$X,Y) - Retorna uma cadeia com 
X caracteres iguais, com 
código ASCII estipulado 
por Y. Não existe para os 
microcomputadores das 
linhas Apple, Sinclair 
ZX-81 e Spectrum. 


ASC(XS) 


CHRS(X) 


Funções 'de subcadeias 


CIT 


LEFTS (X$,N) -Extrai os N primeiros ca- 
racteres da cadeia XS$. 

RIGHTS (X$,N)-Extrai os N últimos carac- 
teres da cadeia X$. 

MIDS (X$,N,L) -Extrai L caracteres a par- 
tir da posição N da cadeia 
X$. Pode ser utilizado 
também no formato 
MID$(XS$,N), extraindo 
então todos os caracteres 
que existirem na cadeia 
X$, a partir da posição N. 






Nos micros da linha Sinclair — 
ZX-81 e Spectrum — não são necessá- 
rias funções especiais para tratamento 
de subcadeias. Damos, abaixo, a equi- 
valência entre a referência padronizada 
a subcadeias na linha Sinclair e as fun- 
ções anteriores mencionadas. 


X$(1 TO N) & LEFTS(XS,N) 
XS(LEN X$-N TO+1) & RIGHTSX$,N) 
XS(N TO N + L-1) e MIDS(XS$,N,L) 
XSN TO) e MIDS$(XS,N) 


PRETA TO isa 


INSTR (X$,Y$) - A função instring retorna 

a posição em que se está 

o caractere Y$ (ou o pri- 

meiro caractere da cadela 

Y$), dentro da cadeia X$. 

Essa função pode ser simulada nos 

computadores onde não existe, por meio 

de um laço de repetição em que cada ca- 

ractere em X$ é extraído, sucessivamen- 

te, sendo comparado com Y$. Isso po- 

de ser feito com a função MIDS(XS$,1,D), 
onde I é o indicador do laço. 


Funções de conversão 


ES ES anna hit] 


Números podem ser representados 
na forma de uma cadeia de dígitos, 
mais os sinais de ponto (.), mais (+), 
menos (-), e as letras E ou D (notação 
científica em precisão simples ou dupla, 
respectivamente. Esta última só existe 
nos micros das linhas TRS-80, TRS- 
Color e MSX). Para efetuar a conver- 
são da representação numérica para ca- 
deia, ou vice-versa, existem duas fun- 
ções especiais em ASCII: 


STR$(X) - Retorna a cadeia corresponden- 
te ao número X. Um espaço em 
branco é adicionado ao início da 
cadeia, 

VAL (X8)- Efetua a operação inversa, ou 
seja, retorna o valor numérico 
correspondente à cadeia X$. Se 
X$ não contiver um número, 


A programação dos blocos básicos de 
um processador de textos em BASIC 
não é difícil. Aprenda aqui a remover 
espaços em branco e a converter 
maiúsculas em minúsculas e vice-versa. 


não ocorre erro: o valor que se 
retorna é igualado a 0. 

Nem todas as versões do BASIC di- 
põem do conjunto completo de funções 
string. Além disso, faltam certas fun- 
ções, necessárias para a programação 
avançada com cadeias (sobretudo em 
processamento de textos): 


e eliminação de espaços em branco no 
começo ou no fim de uma cadeia; 

* conversão de minúsculas para maiús- 
culas e vice-versa; 

e extração de palavras de uma frase. 


Neste artigo, examinaremos como re- 
solver alguns dos problemas menciona- 
dos acima por meio de pequenas sub-ro- 
tinas, que podem ser acrescentadas a 
qualquer programa. 





REMOÇÃO DE ESPAÇOS 


Para muitas aplicações de processa- 
mento de cadeias, é preciso remover an- 
tes os espaços em branco existentes no 
começo ou no final de um string. A sub- 
rotina que apresentamos a seguir mos- 
tra como remover brancos à direita. Ne- 
la, a variável A$ contém a cadeia que 
deve ser processada, e B$, o resultado 
da rotina: 


1000 FOR I=LEN(AS) TO 1 STEP -1 
1010 IF MIDS(AS,1I,1)<>" * THEN 
1030 


1020 NEXT 1 
1030 BS=LEFTS (AS, 1): RETURN 


-1000 FOR I=LEN AS TO 1 STEP -1 
1010 IF AS(I TO 1I)<>” * THEN 
GOTO 1030 

1020 NEXT 1 

1030 LET BS=AS(TO 1) 

1040 RETURN 


Para testar a rotina, acrescente este 
pequeno programa: 


ES ESasanhy dito! 
10 PRINT "ENTRE A CADEIA ”; 
20 INPUT AS 











UNS 0 ca RS EA 


30 GOSUB 1000 
40 PRINT BS 
50 GOTO 10 


A linha 1000 da sub-rotina percorre 
a cadeia de caracteres do fim ao come- 
ço, recuando um caractere por vez. A 
linha 1010 verifica se o caractere é um es- 
paço em branco. Enquanto for, o laço 
se repete. A ocorrência do primeiro ca- 
ractere não branco causa a interrupção 
do laço e a extração dos [ caracteres à 
esquerda (linha 1030). 

Ao testar o programa nos micros das 
linhas TRS-80, TRS-Color, MSX, Apple 
ou TK-2000, não se esqueça de digitar 
a cadeia entre aspas, pois, normalmen- 
te, o comando INPUT já realiza a fun- 


ção de retirar os espaços colocados à di- | 


reita da mesma, 

Nas versões do BASIC que permitem 
funções programadas (DEF FN), a ro- 
tina anterior pode ser substituída por al- 
go bem mais compacto: 

5 DEF FNTBS (AS) =LEFTS (AS, INSTR( 
AS+" = : Ld a =") 

Para fazer um teste, troque a linha 

30 do programa de verificação por: 


30 BS=FNTBS (AS) 


Observe que a função só opera cor- 
retamente se não houver mais do que 
um espaço em branco entre as palavras 
de uma cadeia. 

Para remover os espaços em branco 
à esquerda podemos usar a seguinte 
versão da rotina anterior: 


TITE 


1200 FOR I=1 TO LEN(AS) 
1210 IF MIDS(AS,1I,1)<>” 
1230 

1220 NEXT I 

1230 BS=MIDS (AS, 1) : RETURN 


" THEN 


1200 FOR I=1 TO LEN AS 

1210 IF AS(I TO 1)<>” ” THEN 
GOTO 1230 

1220 NEXT 1 

1230 LET BS=AS(I TO) 

1240 RETURN 


Para testar a rotina, substitua a li- 
nha 30 do programa de verificação por 
GOSUB 1200. 








E MANIPULAÇÃO DE 
CADEIAS DE CARACTERES 
EE CONJUNTO DE FUNÇÕES STRING 
= NOVAS ROTINAS 


DE PROCESSAMENTO DE TEXTOS 





Note que apenas a primeira e a últi- 
ma linhas da sub-rotina são diferentes, 
pois é necessário percorrer a cadeia do 
primeiro ao último caractere, até en- 
contrar o primeiro não branco. Feito is- 
so, eliminam-se todos os caracteres à 
direita. 


MINUSCULAS E MAIÚSCULAS 





Outro recurso útil é a conversão de 
todas as letras minúsculas de uma cadeia 
em maiúsculas, ou vice-versa. Lembre- 
se de que o código ASCII de uma letra 
minúscula é igual ao código da maiús- 
cula correpondente, mais o valor 32. O 
código de A, por exemplo, é 65, e o de 
a, 97. Portanto, para converter maiuús- 
culas em minúsculas, precisamos apenas 
somar 32 ao código das letras — quan- 
do o código ASCII for menor do que 65, 
que é a letra A, ou maior do que 90, que 
é a letra Z, o caractere não deve ser con- 
vertido. 


TITS 
1300 B$="* 

1305 FOR I=1 TO LEN(AS) 
1310 C=ASC(MIDS(AS,1I,1)) 
1320 IF C>64 AND C<91 THEN 
C=C+I2 

1330 BS=BS+CHRS(C) 

1340 NEXT I:RETURN 


1300 LET b$="" 

1305 FOR 1=1 TO LEN ag 

1310 LET c=ASC aS(i TO 1) 

1320 IF c>64 AND c<91l THEN LET 
c=c+32 

1330 LET b$=bS+CHRS c 

1340 NEXT à 

1350 RETURN 


Não apresentamos uma versão para 
os compatíveis com o ZX-81, pois estes 
não têm letras minúsculas. 

Para testar a rotina acima, substitua 
a linha 30 de nosso programa de verifi- 
cação por GOSUB 130. 

O funcionamento da rotina é simples: 
o laço que vai de 1305 a 1340 percorre 
a cadeia de entrada, tomando um carac- 
tere de cada vez, na linha 1310. Se o seu 
código estiver entre 65 e 90, trata-se de 








E ELIMINAÇÃO DE 
ESPAÇOS EM BRANCO 

A CONVERSÃO PARA 
MAIÚSCULAS 


EE CONVERSÃO PARA MINÚSCULAS 


Como uma cadeia é armazenada na 
memória do computador? 

A cadeia é uma estrutura de dados 
muito útil, pois não exige um espaço 
fixo para armazenagem de cada variá- 
vel literal, como acontece com as va- 
riáveis numéricas. Uma variável de pre- 

| Cisão simples sempre ocupa quatro | 
bytes na memória; uma variavel de pre-, | 
cisão dupla (quinze decimais) ocupa | 
seis bytes e assim por diante. 

Manter esse esquema de alocação 
fixa de espaço na memória para as ca- 
deias levaria a um grande desperdício, | 
pois o comprimento das cadeias usa- 

| das em um programa pode variar mui- 
to. Assim, o interpretador BASIC colo- | 
ca todas as cadeias em um único es- 
paço, reservado para esse fim. 

Para saber onde começa e acaba ca- 
da cadeia, o interpretador mantém 
duas outras estruturas de dados: uma 
série de apontadores indica as locações 
de memória onde começam as cadeias. 
No byte O da cadeia está indicado o seu 
comprimento, em bytes. É por isso que 
o comprimento máximo de uma cadeia, 
no dialeto Microsoft BASIC, é 255 (o 
maior número decimal representável 
em oito bits). 





uma letra maiúscula; portanto, devemos 
somar 32 ao mesmo. A linha 130 con- 
catena o novo caractere à cadeia de saída. 

Para converter minúsculas em maiús- 
culas basta alterar apenas uma linha da 
rotina: 


SEEN) 


1320 IF C>96 AND C<123 THEN 
C=C-32 

A rotina verifica se o código ASCII 
do caractere está compreendido entre 97 
e 122 (letras a a z, minúsculas). Se esti- 
ver, simplesmente subtrai 32 desse có- 
digo. 





Com o programa apresentado neste 
artigo, os usuários do TRS-Color terão 
acesso direto à informação contida 
nos disquetes, podendo alterá-la ou 
recuperá-la em caso de acidente. 
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ACESSO DIRETO 
LEITURA E GRAVAÇÃO 
FORMATO DO DISCO 
“O DIRETÓRIO 

- COMO UTILIZAR 


A tarefa de gravar é ler arquivos em 
um disquete é gerenciada pelo sistema 
operacional de disco (DOS). Em geral, 
o modo como se organiza a informação 
no disco ou como se dá a transferência 
de dados não constitui problema para 
o usuário — o DOS cuida de tudo, 
transformando a unidade de disquete 
em uma extensão do computador. 

No entanto, podemos acessar partes 
individualizadas do disco, manipulando 
e alterando diretamente a informação 
nele contida. Este é um recurso ofereci- 
do pelo DOS que abre inúmeras possi- 
bilidades de aplicação. Permite, por 
exemplo, que se alterem itens de um di- 
retório e nomes ou dados de arquivos. 
Sua aplicação mais interessante talvez 
seja a recuperação de informações: com 
o acesso direto você pode, entre outras 
coisas, recuperar arquivos que foram 
apagados, fechar arquivos ou restabe- 
lecer apontadores, corrigindo o enca- 
deamento dos setores que compõem um 
arquivo em particular, 

O acesso direto a blocos individuais 
de informação em um disco funciona de 
modo semelhante a um monitor desti- 
nado a examinar a memória do micro. 

A operação do monitor de disco (ou 
editor de disco) é viabilizada, basica- 
mente, pela armazenagem temporária, 
em uma parte da memória, da informa- 
ção lida do disco ou a ser gravada. En- 
quanto está na memória, a informação 
pode ser alterada à vontade, sendo, em 
seguida, substituida no disco. 


A GEOGRAFIA DO DISCO 





Algum conhecimento sobre a distri- 
buição dos dados no disco é fundamen- 
tal para a manipulação do bloco de in- 
formações em uma trilha ou setor deter- 
minado. O diagrama, normalmente re- 
ferido como formato do disco, é defi- 
nido pelas rotinas de formatação do 
DOS. 

Usa-se a notação em hexadecimal em 
todas as referências sobre acesso direto 
ao disco — por isso, nossas referências 
também adotarão essa notação. Como 
não empregaremos a notação decimal 
em nosso programa, será útil ter uma ta- 
bela de conversão de decimais para hex 
e outra de hex para ASCII, 


O PROGRAMA 
LEITURA 

DE UM SETOR 
EXECUTANDO 
AS ALTERAÇÕES 


im a 
E 








Para utilizar nosso programa-editor, 
você deverá ter um mapa do formato do 
disco. Veremos aqui seus aspectos mais 
relevantes; outros detalhes serão encon- 
trados no manual do DOS. 

Se você vai trabalhar com um disco 
que reúne dados importantes, recomen- 
damos que faça uma cópia dele. Qual- 
quer erro cometido ao usar este progra- 
ma poderá danificar toda a informação 
nele armanezada, 

O TR5-Color tem uma interface es- 
pecial que contém o sistema operacio- 
nal. Este não precisa, assim, estar gra- 
vado no disco para ser lido quando se 
liga o computador — como ocorre com 
a maioria dos micros. 

O disco divide-se em 34 trilhas, cada 
uma com dezoito setores de 338 bytes. 
Destes, apenas 256 são usados para ar- 
mazenamento de dados; os 82 restantes 
são utilizados para controle do sistema 
operacional. 

O diretório, que controla os arquivos 
do disco, fica armazenado na trilha 17. 
Ele pode ser acessado por meio do co- 
mando DIR, que mostra todos os arqui- 
vos, discriminando seu tipo e também 
o número de blocos empregados. Veja- 
mos como está dividida a trilha 17, a 
partir do setor 3: 


Byte Conteúdo 


0-7 Nome do arquivo. Ocupando 
um número de bytes menor que 
oito, é preenchido por espaços 
em branco. Byte O igual a O in- 
dica arquivo apagado. Byte O 
igual a FF significa que este e 
os próximos itens do diretório 
ainda não foram usados. 


8-10 Extensão do nome do arquivo. 


11 Tipo de arquivo: 
O programa BASIC; 
| arquivo de dados BASIC; 
2 programa em linguagem de 
máquina; 
3 arquivo de texto. 


12 OO)arquivo em formato binário. 
FF arquivo em formato ASCII. 





| 
y 
- RR as =——— =] = e —— a 


Número do primeiro bloco do 
arquivo (0-67). 


Número.de bytes em uso no úl- 
timo setor do arquivo. 


16-31 Sem uso. 


Para distribuir os arquivos no disco, 
o computador usa como referência hio- 
cos, que nada mais são que metade de 
uma trilha. Assim, o bloco O será com- 
posto pelos setores | a 9 da trilha 0, o 
bloco 1, pelos setores 10 a 18 da trilha 
0: o bloco 2, pelos setores 1 a 9 da tri- 
lha 1 e assim por diante, até a trilha 16. 
A trilha 17 — que contém o diretório — 
não é levada em consideração, mas a di- 
visão recomeça a partir da trilha 18 — 
onde os setores 1 a 9 compõem o bloco 
34 — e, com isso, prossegue até o fim 
do disco... 

A identificação dos blocos livres pa- 
ra uso é feita por meio do setor 2 da tri- 
lha 17. Os primeiros 68 bytes desse se- 
tor representam os blocos de O a 67. 
Quando determinado byte contém o va- 
lor FF, o bloco está livre. Um valor de 
00 a 43 indica sua ocupação por um ar- 
quivo cuja referência é dada pelo núme- 
ro decimal obtido após a conversão do 
valor. Um valor de CO a €9 indica que 
o bloco em questão é o único ou o últi- 
mo do arquivo; o segundo dígito espe- 
cifica o número de setores que estão 
ocupados no bloco. 

Essas informações são importantes, 
especialmente quando se trata de recu- 
perar arquivos apagados por engano — 
tarefa, aliás, nada fácil, mas que pode 
ter bons resultados se realizada com um 
pouco de paciência. 

No caso da recuperação de um arqui- 
vo pequeho, que não ocupa mais de um 
bloco, o trabalho é mais simples. Em 
primeiro lugar, você deve localizar o 
programa desejado no diretório. Para 
restaurar seu nome inicial, substitua O 
00 da primeira posição pela letra ade- 
quada. Depois procure o 13º byte do 
item (o terceiro após a última letra da 
extensão do nome do arquivo). Irans- 
forme seu valor hexadecimal em deci- 
mal, para identificar o bloco usado pe- 
lo seu programa. Em seguida, grave es- 
sa informação no setor e carregue o se- 
tor 2 da trilha 17, Procure pelo byte cor- 
respondente ao bloco (lembre-se de que 
a contagem começa no 0). Ele deve ter 
o valor FF, Substitua esse valor por €9 
e grave no setor. Saia do programa- 
editor, carregue o seu programa na me- 
mória e volte a gravá-lo, para que to- 
dos os apontadores sejam atualizados. 


Pronto, seu programa está totalmente 
recuperado! 

Quando o programa que você quer 
recuperar é maior, a operação torna-se 
complicada, pois o DOS passa para FF 
o valor de todos os blocos usados pelo 
programa que foi apagado. Assim, co- 
meçamos o trabalho conhecendo apenas 
o primeiro bloco. Os demais têm que ser 


procurados no disco, setor por setor. O 
programa só poderá ser carregado na 
memória do computador quando tiver- 
mos montado a sequência correta de 
blocos. Inicie a busca pelos blocos vizi- 
nhos do inicial e vá se afastando até ter 
localizado todos eles. E um trabalho ár- 
duo, mas, certamente, haverá casos em 
que valerá a pena. 





(160) :C$="""+CHAS (10) +CHAS (8) +C 
HARAS (9) +" AHP+CHRS (13)+” ":D=] 

15 TPS(0)="BAS":TPS(1)="DAD":TP 
S (2) ="LMA”:TPS(3)="TKT” 

20 CLS: PRINT €13,"menu” 

30 PRINT 6105," cARREGAR SETOR”: 
PRINT 8169,"vEBR/EDITAR SETOR":P 
RINT €233,"sALVAR SETOR":PRINT 


8297," dIRETORIO” 


10 CLEAR 5000:DIM AS(1),DS(1),D 


1 
| | 
a 


40 RS=INKEYS:IF R5$="" THEN 40 
50 R=INSTR("CVSD",RS5):IF R=0 TH 
EN 40 

60 IF SL=0 AND (R=2 OR R=3)THEN 
PRINT: PRINTTNENHUM SETOR CARRE 

GADO" :FOR K=1 TO 2000:NEXT:GOTO 
20 

70 CLS:ON R GOSUB 

0,4000 

80 GOTO 20 


1000,2000,300 








218 V$=CHRS (VAL ("L&H"+HS)):P=H+Y 
*11+X 

1000 SL=1:GOSUB 5000 

1010 DSKIS D,T,S,AS(0),AS(1) 
1020 RETURN 

2000 F=1:H=1:CLS:PRINT"aSCII OU 
hEX 2º 

2010 RS=INKEYS:IF AS<>"A" 
S<>"Hº THEN 2010 

2020 AZ=0:IF R$="A” THEN AZ=1 
2030 IF F=0 THEN 2050 

2040 PK=96:CP=1535:IF AZ=1 GOSU 
B 2320 ELSE GOSUB 2280 

2050 PORE CP,PK:CP=1024+7*32+X* 
3: PK=PEEK (CP) :POKE CP,239 

2060 PRINT 8321," BYTE SUPERIOR= 
"«H 

dad R$=INKEYS:IF R$="" THEN 20 


AND BR 


2080 
2070 
2090 F=0:0N R GOTO 2100,2110,21 
20,2130,2140,2150,2160,2170 
2100 Y=Y-1:GOTO 2210 

2110 Y=Y+1:GOTO 2210 

2120 X=X-1L:GOTO 2210 

2130 X=X+1:CGOTO 2210 

2140 AZ=1:GOTO 2040 

2150 AZ=0:GOTO 2040 

2160 RETURN 

2170 PRINT €384,"NOVO CONTEUDO 
(HEX) ";: INPUT HS 

2180 VS=CHRS (VAL ("A&AH"+HS)):P=H+ 

Yx11+X 

2190 MIDS (AS(P/128),P+128*(P>12 

8), 1)=VS 

2200 F=1:GOTO 2030 

2210 IF Y<O THEN H=H-44:Y=D:F=1 
2220 IF Y>7 THEN H=H+44:Y=7:F=] 
2230 IF X<O THEN X=10:Y=Y-1:IF 

Y<O THEN H=H-11l:Y=0:F=1 

2240 IF X>10 THEN X=0:Y=Y+1:IF 

Y>7 THEN Y=7:H=H+11:F=1 

2250 IF H= 10 OR H=-43 THEN H=1 
“F=0:ELSE IF H<l THEN H=1:F=1 

2.460 IF H=179 OR H=212 THEN H=1 

6B:F=0 ELSE IF H>168 THEN H=168 
:F=1 

2270 GOTO 2030 

2280 CLS:FOR J=H TO H+B7 STEP 1 
1:FOR TT=0 TO 10 

2290 PRINT RIGHTS ("0"+HEXS (ASC( 

MIDS (AS (J/128), J+TT+128*((J+TT) 

PAD) edp” “E 

2300 NEXT: PRINT CHRS (8); :NEXT 
2310 RETURN 

2320 CLS:FOR J=H TO H+87 STEP 1 
1:FOR TT=0 TO 10 

2330 G=ASC(MIDS (AS (J/128), J+TT+ 
128*( (J+TT)>128))):IF G<32 THEN 
2350 
2340 PRINT ” *:;CHARS(G);" ";:GOT 

O 2360 

2350 PRINT LEFTS("0"+HEXS(G),2) 


R=INSTR(CS,RS):IF A=0 THEN 


2360 NEXT: PRINT CHR$S(8B);:NEXT:R 
ETURN 

3000 CLS: PRINT"SALVAR NO MESMO 
SETOR (S/N) 27” 

3010 RS=INKEYS:IF R$<>"S" AND R 
S<>"N” THEN 3010 
3020 IF R$="S” THEN 
030 CLS:GOSUB 5000 


3040 











1220 


3040 PRINT:PRINT"VOCE TEM CERTE 
Zh (S/N) 7?” 

3050 RS$=INKEYS:IF R$<>"S” AND R 
S<>"N” THEN 3050 


3060 IF R$="N” THEN RETURN 

3070 DSKOS D,T,.S,AS(0) ,AS(1) 
3080 RETURN 

4000 GOSUB 5050 

4010 PRINT +PR, TAB(14);" INICIO 
NO.” 

4020 PRINT 4+PR,” NOME EXT T 
IPO DEL” 

4030 FOR J=0 TO 8:DSKIS D,1/,dJ+ 


3.D$S (0), DS (1) 

4040 FOR K=1 TO 256 STEP 32 

4050 GOSUB 6000 

4060 IF ASC(VS)=255 THEN K=256: 
J=B:GOTO 4120 

4065 IF ASC(V$)=0 THEN MIDS (VS, 
L.1)=" ":DT=1 

4070 PRINT tPR,MIDS (VS,1,8B);TAB 
(9):”.";MIDS(V8S,9,3); 

4080 TP=VAL (MIDS (VS,11,1)) 

4100 PRINT 4PA, TAB(15); TPS(TP); 
TAB (20) CHRS (42*DT) 

4110 DT=0 

4120 NEXT K,J:R$=INKEYS: IF PR=- 
2 THEN 4ál40 

4130 R$=INKEYS:IF A$="" THEN 41 
30 

4140 RETURN 

5000 INPUT"NUMERO DA TRILHA (0- 
34) GT 

5010 INPUT"NUMERO DO SETOR (1-1 
8) ";5 

5020 INPUT"NUMERO DO DRIVE 
: “0 

5030 IF D>3 OR D<0O OR T>34 OR T 
<0O OR S>18 OR S<l THEN 5000 
5040 RETURN 

5050 PR=0:IF(PEEK(150))<>1l THEN 
RETURN 

5060 PRINT"SAIDA PARA A IMPRESS 

ORA (5S/N)?” 

5070 AS=INKEYS:IF R$<>"S” 

S<>"N” THEN 50/0 

5080 IF R$="5”" THEN PR=-2 

5090 RETURN 

6000 VS5=MIDS (DS (K/128B),K+12B*(K 

>128),32): IF LEN(VS)<32 THEN VS 
=VS+MIDS (DS (1+K/128),1,32-LEN(V 

$)) 

6010 RETURN 


(0-3 


AND R 


| COMO USAR O PROGRAMA 





Carregue o programa na memória e 
escolha o disco no qual você vai traba- 
lhar. Enquanto está aprendendo, con- 
vém utilizar um disquete que não con- 
tenha dados importantes. 

Digitando RUN, você terá quatro op- 
ções: Carregar setor (C), Ver/editar se- 
tor (V), Salvar setor (8), Diretório (D). 
Pressione D para obter uma listagem de- 
talhada dos arquivos do disco, incluin- 
do os que foram apagados anteriormen- 
te. Estes estarão marcados com um as- 
terisco na coluna DEL. Lembre-se de 
que a inclusão do nome de um arquivo 
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no diretório não garante que ele esteja 
disponível no disco — os blocos usados 
por ele podem ter sido reutilizados por 
um outro arquivo. Se você tem uma im- 
pressora conectada ao Micro, digite PO- 
KE 150,1 antes de executar o programa: 
a opção de imprimir o diretório lhe se- 
rá oferecida. 

Em seguida, digite a tecla € para car- 
regar um setor. Tente primeiro o dire- 
tório, pedindo a trilha 17, setor 3. Digi- 
te V para visualizar os dados. Pressio- 
nando A ou H, você poderá obter, a 
qualquer momento, os dados no forma- 
to ASCII ou hexadecimal. O primeiro 
é o mais conveniente para a identifica- 





ção de nomes de arquivos e linhas BA- 
SIC. O segundo deve ser usado quando 
se quer encontrar os valores hexadeci- 
mais de um determinado byte. 

As setas movem o cursor para o pon- 
to que se desejar. Para alterar um va- 
lor, pressione a barra de espaços e for- 
neça o novo byte, sempre em hexadeci- 
mal. Note que apenas uma parte do se- 
tor é exibida. A medida que se movi- 
menta o cursor para baixo, a tela vai ro- 
lando e mostrando o que resta. 

Ao terminar a edição de um setor, 
pode-se gravá-lo usando a opção 8 do 
menu. Entre as informações solicitadas 
pelo programa... e pronto! 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





MNENO PRÓXIMO NUÚUMERONHEEEHHI! 


PROGRAMAÇÃO BASIC 


O que é recursão? A máquina inteligente. Procedimentos 
recursivos. Limitações. Como evitar erros. 


CÓDIGO DE MÁQUINA 


Níveis de dificuldade em Avalanche. Aceleração do jogo. 
Contagem de pontos. Exibição do placar. De volta ao sopé. 


PROGRAMAÇÃO DE JOGOS 


Pôquer com dados: as regras do jogo, estratégia, 
UDG dos dados, rolando os dados, o placar. 





